home *** CD-ROM | disk | FTP | other *** search
Text File | 1985-10-22 | 2.0 KB | 95 lines | [APPL/BASH] |
- /* Planes version 0.1 -- Created by A-Teamâ„¢ 1/5/85 */
- /* { Fred Huxham, Dave Burnard & Jim Takatsuka } */
- /* { & Peter X. Moore - resident C jock } */
- /* ateam%amber@Berkeley.ARPA */
-
- /* created using Consulair Mac C Development System */
- /* & */
- /* Apple Macintosh Development System */
-
- #include "maccdefs.h"
- #include "Quickdraw.h"
- #include "Window.h"
- #include "Events.h"
- #include "Control.h"
-
- #define NIL 0
- #define FALSE 0
- #define TRUE 0xFF
-
-
- main()
- {
- EventRecord event;
- short windowcode;
- WindowPtr thewindow;
- CursHandle thecursor;
- Rect icon1,icon2,icon3,icon4;
- Handle ibm;
-
-
- SetRect(&screen,0,0,512,342);
- SetRect(&icon1,100,100,132,132);
- EraseRect(&screen);
-
- thecursor=GetCursor(1962);
- ibm=GetIcon(1962);
-
- PlotIcon(&icon1,ibm);
- SetCursor(thecursor);
-
- while (0xFF)
- {
-
- if (GetNextEvent(everyEvent,&event))
- {
- switch (event.what)
- {
- case mouseDown:
- {
- windowcode=FindWindow(&event.where,&thewindow);
- i=0;
- switch (windowcode)
- {
- case inDesk:
- {
- break;
- } /* end of case inDesk */
- case inMenuBar:
- {
- break;
- } /* end of case inMenuBar */
- case inSysWindow:
- {
- break;
- } /* end of case inSysWindow */
- case inContent:
- {
- break;
- } /* end of case inContent */
- case inDrag:
- {
- break;
- } /* end of case inDrag */
- case inGrow:
- {
- break;
- } /* end of case inGrow */
- case inGoAway:
- {
- break;
- } /* end of case inGoAway */
- } /* end of switch(windowcode) */
- break;
- } /* end of case mouseDown */
- case keyDown:
- {
- ExitToShell();
- break;
- } /* end of case keyDown */
- case nullEvent:
-
- } /* end of switch(event.what) */
- } /* end of if(GetNext...) */
- } /* end of while(0xFF) */
- } /* end of main() */